home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE Trouble.xpl < prev    next >
Text File  |  2000-08-06  |  2KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Internet Explorer\Other"
  5. "NAME"="Troubleshooting"
  6. "VERSION"="1.30"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Correct Channel Bar Position"
  9. "TEXT 2"="Reset IE Window Placement"
  10. "DESCRIPTION 1"="If your Channel Bar is missing, the position of it is maybe not correct. Click the first button to correct this."
  11. "DESCRIPTION 2"="Reset Internet Explorer's window location to the default position IF problems with the window location occur, such as creating an off screen window or restricting window resizing to minimize or maximize only. When IE is restarted, a new location value will be created."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"="Thanks to Ojatex for his help!"
  17.  
  18.  
  19. sPCheck="HKCU\Software\Microsoft\Internet Explorer\"
  20.  
  21. sV1="HKCU\Software\Microsoft\Internet Explorer\Channels\Window_Placement"
  22. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\Window_Placement"
  23.  
  24.  
  25. Sub Plugin_Initialize 
  26.  If RegPathExists(sPCheck) then
  27.     'do nothing???
  28.  else
  29.     Disable
  30.  end if
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  If ElementIndex=1 then
  38.     s=RegReadValue(sV1)
  39.  
  40.     If IsEmpty(s)=false then
  41.        Call RegDeleteValue(sV1)
  42.     end if
  43.  
  44.     Call MsgInformation("Corrected")
  45.  end if 
  46.  
  47.  If ElementIndex=2 then
  48.     s=RegReadValue(sV2)
  49.  
  50.     If IsEmpty(s)=false then
  51.        Call RegDeleteValue(sV2)
  52.     end if
  53.  
  54.     Call MsgInformation("Corrected")
  55.  end if 
  56.  
  57.  
  58. End Sub
  59.  
  60. Sub Plugin_Terminate 
  61. End Sub
  62.